Cream of the Crop 26/Cream of the Crop 26.iso/database/32psro20.zip/_SETUP.1/REO32S.EXE/0/RCDATA/TLABELDLG/TLABELDLG.txt

Text File | 1997-05-14 | 40KB | 1,277 lines

object LabelDlg: TLabelDlg
  Left = 200
  Top = 141
  ActiveControl = LoadBtn
  BorderStyle = bsDialog
  Caption = 'Print Labels'
  ClientHeight = 337
  ClientWidth = 368
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 13
  object ButtonPanel: TPanel
    Left = 283
    Top = 0
    Width = 85
    Height = 283
    Align = alRight
    BevelOuter = bvNone
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object PrintBtn: TBitBtn
      Left = 5
      Top = 63
      Width = 77
      Height = 27
      Hint = 'Print Report On Selected Printer'
      Caption = '&Print'
      Default = True
      TabOrder = 2
      OnClick = PrintBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object CancelBtn: TBitBtn
      Left = 5
      Top = 3
      Width = 77
      Height = 27
      Hint = 'Close This Window'
      Caption = '&Close'
      TabOrder = 0
      Kind = bkCancel
      Margin = 2
      Spacing = -1
      IsControl = True
    end
    object HelpBtn: TBitBtn
      Left = 5
      Top = 33
      Width = 77
      Height = 27
      Hint = 'Display Help Window'
      TabOrder = 1
      Kind = bkHelp
      Margin = 2
      Spacing = -1
      IsControl = True
    end
    object LoadBtn: TBitBtn
      Left = 5
      Top = 153
      Width = 77
      Height = 27
      Hint = 'Load Report Template From Disk File'
      Caption = '&Load'
      Default = True
      TabOrder = 5
      OnClick = LoadBtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object SaveBtn: TBitBtn
      Left = 5
      Top = 183
      Width = 77
      Height = 27
      Hint = 'Save Report Template To Disk File'
      Caption = '&Save'
      Default = True
      TabOrder = 6
      OnClick = SaveBtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object PreviewBtn: TBitBtn
      Left = 5
      Top = 123
      Width = 77
      Height = 27
      Hint = 'Preview Report On Screen'
      Caption = 'Pre&view'
      Default = True
      TabOrder = 4
      OnClick = PreviewBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        033333777777777773333330777777703333333773F333773333333330888033
        33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
        FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
        8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
        8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
        8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
        8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
        FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object SelectBtn: TBitBtn
      Left = 5
      Top = 93
      Width = 77
      Height = 27
      Hint = 'Select Printer'
      Caption = 'S&elect'
      Default = True
      TabOrder = 3
      OnClick = SelectBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
  end
  object TabSet: TTabSet
    Left = 0
    Top = 316
    Width = 368
    Height = 21
    Align = alBottom
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnClick = TabSetClick
  end
  object Notebook: TNotebook
    Left = 0
    Top = 0
    Width = 283
    Height = 283
    Align = alClient
    PageIndex = 1
    TabOrder = 2
    IsControl = True
    object TPage
      Left = 0
      Top = 0
      Caption = 'Fields'
      IsControl = True
      object GroupBox1: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Data Fields'
        TabOrder = 0
        object Label1: TLabel
          Left = 5
          Top = 18
          Width = 56
          Height = 13
          Caption = 'All Fields:'
        end
        object Label2: TLabel
          Left = 157
          Top = 18
          Width = 91
          Height = 13
          Caption = 'Included Fields:'
        end
        object IncludeBtn: TSpeedButton
          Left = 125
          Top = 52
          Width = 24
          Height = 24
          Hint = 'Include Selected Field'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
            880088888888888000008888880A08888888888FFFFF8888880AA08888888880
            00008888880AAA088888888FFFFF8888880AAAA08888888000008888880AAAAA
            0888888131008888880AAAAAA088888095C08888880AAAAA0888888053028888
            880AAAA088888887D5D58888880AAA0888888889091D8888880AA0888888888F
            CFD78888880A08888888888A7AE288888800888888888887CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = IncludeBtnClick
          IsControl = True
        end
        object InLineBtn: TSpeedButton
          Left = 125
          Top = 80
          Width = 24
          Height = 24
          Hint = 'Include In The Same Line'
          Glyph.Data = {
            80010000424D8001000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            88888888C00C8888888888888888888828EB8888888888888888888880948888
            8888888888888888EC88888888880000888888882312888888880AA088888888
            6160888888880AA0888888880811888888880AA088888888C0C8888800000AA0
            000088883AE388880AAAAAAAAAA0888894C488880AAAAAAAAAA08888D5DC8888
            00000AA0000088880100888888880AA08888888896F0888888880AA088888888
            49F8888888880AA088888888080588888888000088888888C111888888888888
            8888888800888888888888888888888818738888888888888888888821208888
            8888888888888888444900000000000000000000000000000000000000000000
            00000000}
          OnClick = InLineBtnClick
        end
        object IncAllBtn: TSpeedButton
          Left = 125
          Top = 108
          Width = 24
          Height = 24
          Hint = 'Include All Fields'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58008
            8888880088888880000080A08888880A0888888FFFFF80AA0888880AA0888880
            000080AAA088880AAA08888FFFFF80AAAA08880AAAA08880000080AAAAA0880A
            AAAA0881310080AAAAAA080AAAAAA08095C080AAAAA0880AAAAA0880530280AA
            AA08880AAAA08887D5D580AAA088880AAA088889091D80AA0888880AA088888F
            CFD780A08888880A0888888A7AE280088888880088888887CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = IncAllBtnClick
          IsControl = True
        end
        object ExcludeBtn: TSpeedButton
          Left = 125
          Top = 152
          Width = 24
          Height = 24
          Hint = 'Exclude Selected Field'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
            888888800888888000008888888888090888888FFFFF88888888809908888880
            00008888888809990888888FFFFF888888809999088888800000888888099999
            0888888131008888809999990888888095C08888880999990888888053028888
            8880999908888887D5D588888888099908888889091D8888888880990888888F
            CFD78888888888090888888A7AE288888888888008888887CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = ExcludeBtnClick
          IsControl = True
        end
        object ExAllBtn: TSpeedButton
          Left = 125
          Top = 180
          Width = 24
          Height = 24
          Hint = 'Exclude All Fields'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
            888008888888008000008888880908888880908FFFFF88888099088888099080
            00008888099908888099908FFFFF888099990888099990800000880999990880
            9999908131008099999908099999908095C08809999908809999908053028880
            9999088809999087D5D588880999088880999089091D8888809908888809908F
            CFD78888880908888880908A7AE288888880088888880087CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = ExAllBtnClick
          IsControl = True
        end
        object MoveUpBtn: TSpeedButton
          Left = 184
          Top = 246
          Width = 24
          Height = 24
          Hint = 'Move Up'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
            3333333333777F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
            3333333777737777F333333099999990333333373F3333373333333309999903
            333333337F33337F33333333099999033333333373F333733333333330999033
            3333333337F337F3333333333099903333333333373F37333333333333090333
            33333333337F7F33333333333309033333333333337373333333333333303333
            333333333337F3333333333333303333333333333337333333330000}
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = MoveUpBtnClick
          IsControl = True
        end
        object MoveDownBtn: TSpeedButton
          Left = 216
          Top = 246
          Width = 24
          Height = 24
          Hint = 'Move Down'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
            333333333337F33333333333333033333333333333373F333333333333090333
            33333333337F7F33333333333309033333333333337373F33333333330999033
            3333333337F337F33333333330999033333333333733373F3333333309999903
            333333337F33337F33333333099999033333333373333373F333333099999990
            33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F333333333333000333333333333377733333330000}
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = MoveDownBtnClick
          IsControl = True
        end
        object ListBox1: TListBox
          Left = 5
          Top = 34
          Width = 113
          Height = 231
          Hint = 'List Of All Data Fields'
          ItemHeight = 13
          TabOrder = 0
        end
        object ListBox2: TListBox
          Left = 158
          Top = 34
          Width = 113
          Height = 207
          Hint = 'Data Fields Selected For Report'
          ItemHeight = 13
          TabOrder = 1
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Page'
      object GroupBox18: TGroupBox
        Left = 3
        Top = 1
        Width = 277
        Height = 275
        Caption = 'Page Settings'
        TabOrder = 0
        object Image4: TImage
          Left = 216
          Top = 69
          Width = 33
          Height = 33
          Picture.Data = {<image000.bmp>}
          Visible = False
        end
        object Image3: TImage
          Left = 216
          Top = 69
          Width = 33
          Height = 33
          Picture.Data = {<image001.bmp>}
        end
        object Image2: TImage
          Left = 216
          Top = 160
          Width = 49
          Height = 41
          Picture.Data = {<image002.bmp>}
          Visible = False
        end
        object Image1: TImage
          Left = 216
          Top = 160
          Width = 49
          Height = 41
          Picture.Data = {<image003.bmp>}
        end
        object OrientationRG: TRadioGroup
          Left = 7
          Top = 151
          Width = 202
          Height = 49
          Hint = 'Select Page Orientation'
          Caption = 'Page Orientation'
          Items.Strings = (
            'Portrait'
            'Landscape')
          TabOrder = 1
          OnClick = OrientationRGClick
        end
        object RadioGroup1: TRadioGroup
          Left = 8
          Top = 216
          Width = 201
          Height = 44
          Hint = 'Units Of Measure (used by widths, heights, margins, etc.)'
          Caption = 'Units Of Measure'
          Items.Strings = (
            'inches'
            'centimeters')
          TabOrder = 2
          OnClick = RadioGroup1Click
        end
        object GroupBox17: TGroupBox
          Left = 8
          Top = 14
          Width = 201
          Height = 123
          Caption = 'Page Size in Units'
          TabOrder = 0
          object Label26: TLabel
            Left = 5
            Top = 19
            Width = 38
            Height = 13
            Caption = 'Width:'
          end
          object Label27: TLabel
            Left = 101
            Top = 19
            Width = 42
            Height = 13
            Caption = 'Height:'
          end
          object SizeRG: TRadioGroup
            Left = 8
            Top = 35
            Width = 185
            Height = 84
            Hint = 'Some Page Sizes may not be accepted by your Printer'
            Items.Strings = (
              'Letter'
              'Legal'
              'A4'
              'Custom')
            TabOrder = 2
            OnClick = SizeRGClick
          end
          object PgWidthEd: TEdit
            Left = 43
            Top = 16
            Width = 49
            Height = 20
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object PgHeightEd: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Labels'
      object GroupBox5: TGroupBox
        Left = 3
        Top = 1
        Width = 277
        Height = 275
        Caption = 'Label Settings'
        TabOrder = 0
        object Label7: TLabel
          Left = 212
          Top = 217
          Width = 58
          Height = 26
          Caption = 'Print From Label #:'
          WordWrap = True
        end
        object GroupBox2: TGroupBox
          Left = 8
          Top = 106
          Width = 201
          Height = 41
          Caption = 'Label Size [Units]'
          TabOrder = 1
          object Label3: TLabel
            Left = 10
            Top = 19
            Width = 38
            Height = 13
            Caption = 'Width:'
          end
          object Label4: TLabel
            Left = 101
            Top = 19
            Width = 42
            Height = 13
            Caption = 'Height:'
          end
          object WidthEd: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Label Width'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object HeightEd: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Label Height'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox3: TGroupBox
          Left = 8
          Top = 13
          Width = 263
          Height = 93
          Caption = 'Label Type'
          TabOrder = 0
          object LabelType: TRadioGroup
            Left = 4
            Top = 13
            Width = 151
            Height = 54
            Items.Strings = (
              'Avery (North America)'
              'Avery (Europe)'
              'Custom')
            TabOrder = 0
            OnClick = LabelTypeClick
          end
          object AveryType: TComboBox
            Left = 4
            Top = 68
            Width = 151
            Height = 21
            Hint = 'AVERY Label Type'
            ItemHeight = 13
            TabOrder = 1
            OnChange = AveryTypeChange
          end
          object LabelShape: TRadioGroup
            Left = 159
            Top = 13
            Width = 100
            Height = 77
            Caption = 'Shape'
            Items.Strings = (
              'Round Rect.'
              'Rectangle'
              'Round')
            TabOrder = 2
          end
        end
        object GroupBox6: TGroupBox
          Left = 8
          Top = 230
          Width = 201
          Height = 41
          Caption = 'Number Of Labels On One Page'
          TabOrder = 4
          object Label5: TLabel
            Left = 5
            Top = 19
            Width = 43
            Height = 13
            Caption = 'Across:'
          end
          object Label6: TLabel
            Left = 105
            Top = 19
            Width = 37
            Height = 13
            Caption = 'Down:'
          end
          object NumAcross: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Number Of Labels Horizontally'
            TabOrder = 0
            OnKeyPress = NumAcrossKeyPress
          end
          object NumDown: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Number Of Labels Vertically'
            TabOrder = 1
            OnKeyPress = NumAcrossKeyPress
          end
        end
        object GroupBox7: TGroupBox
          Left = 8
          Top = 147
          Width = 201
          Height = 41
          Caption = 'Label Pitch [Units] (size+gap)'
          TabOrder = 2
          object Label8: TLabel
            Left = 10
            Top = 19
            Width = 38
            Height = 13
            Caption = 'Horiz.:'
          end
          object Label9: TLabel
            Left = 110
            Top = 19
            Width = 32
            Height = 13
            Caption = 'Vert.:'
          end
          object SpaceW: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Horizontal Pitch (Label Width + Horiz. Space Between Labels)'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object SpaceH: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Vertical Pitch (Label Height + Vertical Space Between Labels)'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox8: TGroupBox
          Left = 8
          Top = 189
          Width = 201
          Height = 41
          Caption = 'Page Margins [Units]'
          TabOrder = 3
          object Label13: TLabel
            Left = 21
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label14: TLabel
            Left = 116
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object SpaceL: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Distance From Paper Edge To Left Edge Of First Label'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object SpaceT: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Distance From Paper Edge To Top Edge Of First Label'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object FromLabelEd: TEdit
          Left = 224
          Top = 246
          Width = 34
          Height = 20
          Hint = 'First Label To Be Printed On First Page'
          TabOrder = 5
          OnKeyPress = NumAcrossKeyPress
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Body'
      object GroupBox9: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Label Body'
        TabOrder = 0
        object GroupBox11: TGroupBox
          Left = 8
          Top = 20
          Width = 225
          Height = 44
          Caption = 'Body Text Margins [Units]'
          TabOrder = 0
          object Label18: TLabel
            Left = 14
            Top = 20
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label19: TLabel
            Left = 109
            Top = 20
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object LabelLM: TEdit
            Left = 41
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Label Body Text Left Margin'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object LabelTM: TEdit
            Left = 136
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Label Body Text Top Margin'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox10: TGroupBox
          Left = 8
          Top = 72
          Width = 225
          Height = 193
          Caption = 'Text Font'
          TabOrder = 1
          object Label10: TLabel
            Left = 16
            Top = 16
            Width = 66
            Height = 13
            Caption = 'Font Name:'
          end
          object Label11: TLabel
            Left = 16
            Top = 56
            Width = 62
            Height = 13
            Caption = 'Font Style:'
          end
          object Label12: TLabel
            Left = 16
            Top = 104
            Width = 58
            Height = 13
            Caption = 'Font Size:'
          end
          object FontEd: TEdit
            Left = 16
            Top = 32
            Width = 185
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 0
          end
          object StyleEd: TEdit
            Left = 16
            Top = 72
            Width = 185
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 1
          end
          object SizeEd: TEdit
            Left = 16
            Top = 120
            Width = 185
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 2
          end
          object FontBtn: TBitBtn
            Left = 50
            Top = 152
            Width = 113
            Height = 33
            Hint = 'Select Body Text Font'
            Caption = 'Change Font'
            TabOrder = 3
            OnClick = FontBtnClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00000000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333333333333333333333FFF33FFFFF33333300033000
              00333337773377777333333330333300033333337FF33777F333333330733300
              0333333377FFF777F33333333700000073333333777777773333333333033000
              3333333337FF777F333333333307300033333333377F777F3333333333703007
              33333333377F7773333333333330000333333333337777F33333333333300003
              33333333337777F3333333333337007333333333337777333333333333330033
              3333333333377333333333333333033333333333333733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            Margin = 5
            NumGlyphs = 2
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Header/Footer'
      object GroupBox4: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Label Header/Footer'
        TabOrder = 0
        object Label15: TLabel
          Left = 8
          Top = 13
          Width = 117
          Height = 13
          Caption = 'Header/Footer Text:'
        end
        object GroupBox12: TGroupBox
          Left = 8
          Top = 151
          Width = 257
          Height = 120
          Caption = 'Header/Footer Font'
          TabOrder = 2
          object Label16: TLabel
            Left = 10
            Top = 18
            Width = 66
            Height = 13
            Caption = 'Font Name:'
          end
          object Label17: TLabel
            Left = 10
            Top = 42
            Width = 62
            Height = 13
            Caption = 'Font Style:'
          end
          object Label20: TLabel
            Left = 10
            Top = 68
            Width = 58
            Height = 13
            Caption = 'Font Size:'
          end
          object HFFontEd: TEdit
            Left = 80
            Top = 15
            Width = 169
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 0
          end
          object HFStyleEd: TEdit
            Left = 80
            Top = 40
            Width = 169
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 1
          end
          object HFSizeEd: TEdit
            Left = 80
            Top = 65
            Width = 169
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 2
          end
          object BitBtn1: TBitBtn
            Left = 105
            Top = 88
            Width = 113
            Height = 27
            Hint = 'Select Header and Footer Font'
            Caption = 'Change Font'
            TabOrder = 3
            OnClick = BitBtn1Click
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00000000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333333333333333333333FFF33FFFFF33333300033000
              00333337773377777333333330333300033333337FF33777F333333330733300
              0333333377FFF777F33333333700000073333333777777773333333333033000
              3333333337FF777F333333333307300033333333377F777F3333333333703007
              33333333377F7773333333333330000333333333337777F33333333333300003
              33333333337777F3333333333337007333333333337777333333333333330033
              3333333333377333333333333333033333333333333733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            Margin = 5
            NumGlyphs = 2
          end
        end
        object HFText: TMemo
          Left = 8
          Top = 26
          Width = 257
          Height = 83
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ScrollBars = ssHorizontal
          TabOrder = 0
        end
        object GroupBox13: TGroupBox
          Left = 8
          Top = 112
          Width = 257
          Height = 39
          Caption = 'Header/Footer Margins [Units]'
          TabOrder = 1
          object Label21: TLabel
            Left = 15
            Top = 17
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label22: TLabel
            Left = 103
            Top = 17
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object HFLeft: TEdit
            Left = 45
            Top = 14
            Width = 49
            Height = 20
            Hint = 'Header/Footer Left Margin'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object HFTop: TEdit
            Left = 133
            Top = 14
            Width = 49
            Height = 20
            Hint = 'Header/Footer Top Margin'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Logo'
      object GroupBox14: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Logo Settings'
        TabOrder = 0
        object GroupBox15: TGroupBox
          Left = 8
          Top = 133
          Width = 257
          Height = 44
          Caption = 'Logo Position [Units]'
          TabOrder = 1
          object Label24: TLabel
            Left = 29
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label25: TLabel
            Left = 117
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object LogoLEd: TEdit
            Left = 59
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Distance from Label Border to Left Edge of Logo'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object LogoTEd: TEdit
            Left = 147
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Distance from Label Border to Top Edge of Logo'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox16: TGroupBox
          Left = 8
          Top = 24
          Width = 257
          Height = 97
          Caption = 'Logo File'
          TabOrder = 0
          object Label23: TLabel
            Left = 8
            Top = 24
            Width = 131
            Height = 13
            Caption = 'Logo File Name (BMP):'
          end
          object LogoFEd: TEdit
            Left = 8
            Top = 40
            Width = 233
            Height = 20
            Hint = 'Logo File Name (must be BMP file)'
            TabOrder = 0
          end
          object Button1: TButton
            Left = 88
            Top = 66
            Width = 81
            Height = 25
            Hint = 'Select Logo File'
            Caption = 'Select'
            TabOrder = 1
            OnClick = Button1Click
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 283
    Width = 368
    Height = 33
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object PreviousBtn: TButton
      Left = 16
      Top = 3
      Width = 89
      Height = 25
      Caption = '<< P&revious'
      TabOrder = 0
      Visible = False
      OnClick = PreviousBtnClick
    end
    object NextBtn: TButton
      Left = 162
      Top = 3
      Width = 89
      Height = 25
      Caption = '&Next >>'
      TabOrder = 1
      OnClick = NextBtnClick
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 336
    Top = 287
  end
  object ReportSystem1: TReportSystem
    TitleSetup = 'Report Setup'
    TitleStatus = 'Report Status'
    TitlePreview = 'Report Preview'
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup]
    SystemFiler.FileName = 'label.tmp'
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemFiler.StreamMode = smFile
    SystemPreview.RulerType = rtBothIn
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    OnPrint = ReportSystem1Print
    OnBeforePrint = ReportSystem1BeforePrint
    Left = 299
    Top = 287
  end
  object LabelShell1: TLabelShell
    NumDown = 4
    LabelWidth = 2.500000000000000000
    LabelHeight = 2.500000000000000000
    SpacingLeft = 0.250000000000000000
    SpacingTop = 0.500000000000000000
    SpacingWidth = 2.750000000000000000
    SpacingHeight = 2.500000000000000000
    DrawExtents = True
    LabelShape = lsRound
    OnReportBefore = LabelShell1ReportBefore
    OnLabelPrint = LabelShell1LabelPrint
    OnLabelAfter = LabelShell1LabelAfter
    OnReportAfter = LabelShell1ReportAfter
    Left = 259
    Top = 287
  end
  object OpenDialog1: TOpenDialog
    Title = 'Select Logo File'
    Left = 339
    Top = 256
  end
end